home *** CD-ROM | disk | FTP | other *** search
/ SGI Freeware 2002 November / SGI Freeware 2002 November - Disc 1.iso / dist / fw_exmh.idb / usr / freeware / lib / exmh-2.5 / html_stubs.tcl.z / html_stubs.tcl
Text File  |  2002-07-08  |  1KB  |  73 lines
  1. # Stubs for routines that are in WebTk but not used here.
  2.  
  3. proc dputs {args} {
  4.     return
  5. }
  6. proc Input_Edit {args} {
  7.     return 0    ;# never in edit mode
  8. }
  9. proc Input_IsDirty {args} {
  10.     return 0
  11. }
  12. proc Input_Mode {args} {
  13.     return 0
  14. }
  15. proc Input_Adjust {args} {
  16.     return 0
  17. }
  18. proc Undo_Reset {args} {
  19.     return
  20. }
  21. proc Undo_Record {args} {
  22.     return
  23. }
  24. proc Undo_Mark {args} {
  25.     return
  26. }
  27. proc Undo_Init {args} {
  28.     return
  29. }
  30. proc Form_Reset {win} {
  31.     upvar #0 HM$win var
  32.     set var(S_formid) 0
  33.     return
  34. }
  35. proc Embed_Reset {args} {
  36.     return
  37. }
  38. proc Edit_Reset {args} {
  39.     return
  40. }
  41. proc Input_Reset {args} {
  42.     return
  43. }
  44. proc StatusLabel {args} {
  45.     return .bogus
  46. }
  47. proc StatusLazy {args} {
  48.     return
  49. }
  50. proc Mark_ReadTags {args} {
  51.     return
  52. }
  53. proc Mark_Current {args} {
  54.     return current
  55. }
  56. proc MarkUndefined {args} {
  57.     return 
  58. }
  59. proc Toolbar_Update {args} {
  60.     return
  61. }
  62. proc WinHistoryAdd {args} {
  63.     return
  64. }
  65. proc HMmark {args} {
  66.     return
  67. }
  68. proc UrlEditLink {args} {
  69. }
  70. proc Stderr {args} {
  71.     catch {puts stderr [join $args " "]}
  72. }
  73.